home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Co-Cz / Countdown.cpt / Countdown / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1987-12-19  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>2968</cardID>
  8.     <listID>2184</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack      -- initial setupglobal NeedPackput false into NeedPackhide menubarend openstackon closeStackglobal NeedPackchoose browse toolif NeedPack thenput the userLevel into OldLevelset the userLevel to 4set the location of message to 22,14show messageput "Recovering Free Space From Stack" into MessagedoMenu "Compact Stack"hide messageset the location of message to 16,216set the userLevel to OldLevelend ifshow menubarend closeStackon RunClock        -- this paragraph does it allglobal TestRunset cursor to 4hide menuBarPut the userLevel into OldLevelSet the userLevel to 4if OldLevel > 2 or the number of cards <> 5 then SetupClock1SetupClock2SetTZeroset lockScreen to falsevisual effect dissolvego to card 4if TestRun then DoTestelse DoClockSet the userLevel to OldLevelgo to card 1end RunClockon DoClock    -- do the clock countdownglobal TZero, SLput 0 into TNowput 1 into SLrepeat until SL <= 0 or the mouse is downif the seconds <> TNow thenput the seconds into TNowput TZero - TNow into SLdSLend ifend repeatif the mouse is up then dZeroend DoClockon SetTZeroglobal TZerogo to card 1put card field hours into Hif H = 12 then put 0 into Hif the hilite of button PM = true then add 12 to Hput the seconds into TZeroconvert TZero to dateItemsput H into item 4 of TZeroput card field minutes into item 5 of TZeroput 0 into item 6 of TZeroconvert TZero to secondsif TZero < the seconds then add 86400 to TZeroend SetTZeroon DoTest       -- perform a test runglobal SLput 10362 into SLdSLwait 3 secondsput 2456 into SLdSLwait 3 secondsput 28 into SLdSLwait 3 secondshide card field 1hide card field 2d5wait 30d4wait 30d3wait 30d2wait 30d1wait 30d0dZeroend DoTeston SetupClock1     -- create & initilize cards 4 & 5global NeedPackput true into NeedPackset the location of message to 22,14show messageput "SETUP: 1 of 5 - Deleting Old Card 5" into Messagerepeat while the number of cards > 4go to card 5doMenu "Delete Card"end repeatput "SETUP: 2 of 5 - Creating Card 5" into Messagego to card 4doMenu "New Card"go to card 3choose field toolclick at the location of card field 1doMenu "Copy Field"go to card 5doMenu "Paste Field"set the location of card field 1 to 256,171set showLines of card field 1 to falseset style of card field 1 to transparentput "SETUP: 3 of 5 - Setting Card 4 Fields" into Messagego to card 4show card field 1show card field 2choose field toolclick at the location of card field 2doMenu "Clear Field"go to card 2click at the location of card field 1doMenu "Copy Field"go to card 4doMenu "Paste Field"choose browse toolset the location of card field 2 to 256,68set style of card field 2 to transparentset showLines of card field 2 to falseend SetupClock1on SetupClock2     -- finish set up of  cards 4 & 5set the location of message to 22,14show messageput "SETUP: 4 of 5 - Updating background for Card 5" into Messagego to card 5doMenu "Background"choose select tooldoMenu "Select All"doMenu "Copy Picture"doMenu "Background"doMenu "Paste Picture"choose browse toolput card field 1 of card 3 into card field 1put "SETUP: 5 of 5 - Updating Card 4 Message" into Messagego to card 4hide button 1hide button 2hide button 3hide button 4hide button 5hide button 6hide button 7hide button 8show card field 1show card field 2put card field 1 of card 2 into card field 2put empty into card field 1-- all done! --hide messageset the location of message to 16,216end SetupClock2on dSL           -- display the time left....global SLif SL < 20 thenhide card fie